home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / doc / examples / menus.tcl < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.5 KB  |  63 lines
  1. #! moat
  2.  
  3. xtAppInitialize
  4.  
  5. #------------------------------------------------------------------------
  6. # Build the Main Window, with its menubar and quit button.
  7. #
  8. xmMainWindow .top managed
  9. xmMenuBar .top.bar managed
  10.  
  11. xmCascadeButton .top.bar.File managed
  12. xmCascadeButton .top.bar.Edit managed
  13.  
  14. #------------------------------------------------------------------------
  15. xmPulldownMenu .FileMenu
  16. .top.bar.File setValues -subMenuId .FileMenu
  17.  
  18. foreach b {Open Reopen - Save SaveAs - Quit} {
  19.     if { $b == "-" } {
  20.         xmSeparator .FileMenu.sep managed
  21.     } {
  22.         xmPushButton .FileMenu.$b managed
  23.     }
  24. }
  25. .FileMenu.Quit activateCallback {exit 0}
  26.  
  27. #------------------------------------------------------------------------
  28. xmPulldownMenu .EditMenu
  29. .top.bar.Edit setValues -subMenuId .EditMenu
  30.  
  31. foreach b {Undo - Copy Cut Paste -} {
  32.     if { $b == "-" } {
  33.         xmSeparator .EditMenu.sep managed
  34.     } {
  35.         xmPushButton .EditMenu.$b managed
  36.     }
  37. }
  38. .EditMenu.Undo setValues -sensitive False
  39.  
  40. xmCascadeButton .EditMenu.Options managed
  41.  
  42. xmPulldownMenu .OptionsSubMenu
  43. .EditMenu.Options setValues -subMenuId .OptionsSubMenu
  44. foreach b {Color Width Pattern} {
  45.     xmPushButton .OptionsSubMenu.$b managed
  46. }
  47.  
  48. #------------------------------------------------------------------------
  49. # Build the Viewwing area.
  50. #
  51. xmFrame .top.area \
  52.     -background black \
  53.     -width 300 -height 200
  54. .top setValues -workWindow .top.area
  55. .top.area manageChild
  56.  
  57. .top.bar.Edit callActionProc StartDrag() \
  58.     -type ButtonPress \
  59.     -x 5 -y 5
  60. .EditMenu.Options callActionProc StartDrag() \
  61.     -type ButtonPress \
  62.     -x 5 -y 5
  63.